﻿
Public Class StatusBLL

    Function ListaStatus() As DataSet
        Dim obj As New StatusDAL

        Return obj.ListaStatus
    End Function

    Sub InsereStatus(objStatus As Status)
        Dim obj As New StatusDAL

        obj.InsereStatus(objStatus)
    End Sub

    Sub AlteraStatus(objStatus As Status)
        Dim obj As New StatusDAL

        obj.AlteraStatus(objStatus)
    End Sub

    Sub ExcluiStatus(codStatus As Integer)
        Dim obj As New StatusDAL

        obj.ExcluiStatus(codStatus)
    End Sub

End Class
